home *** CD-ROM | disk | FTP | other *** search
/ Tricks of the Windows Gam…ming Gurus (2nd Edition) / Disc2.iso / ntsp3 / nt4sp3_i.exe / [0] / pscript.dll / 259 / 4 < prev    next >
Text File  |  1997-05-01  |  7KB  |  98 lines
  1.  
  2. %%BeginResource: file Adobe_WinNT_BW_Images 2.0 0
  3. /iw 0 def/ih 0 def/im_save 0 def/setupimageproc 0 def/polarity 0 def/smoothflag
  4. 0 def/mystring 0 def/bpc 0 def/setup1asciiproc{[currentfile mystring
  5. /readhexstring cvx/pop cvx]cvx bind}b/setup1binaryproc{[currentfile mystring
  6. /readstring cvx/pop cvx]cvx bind}b/setup2asciiproc{currentfile/ASCII85Decode
  7. filter/RunLengthDecode filter}b/setup2binaryproc{currentfile/RunLengthDecode
  8. filter}b/mycolorspace{colspABC}def/myimagedict{/myimagedict 10 dict def
  9. myimagedict dup begin/ImageType 1 def/MultipleDataSource false def end}b
  10. /imageprocarray[/setup1binaryproc/setup1asciiproc/setup2binaryproc
  11. /setup2asciiproc]def/L2Polarity{{[1 0]}{[0 1]}ifelse}b/beginimage{/im_save save
  12. def imageprocarray exch get/setupimageproc exch load def L2Polarity/polarity
  13. exch def/smoothflag exch def translate/dx 2 index def/dy 1 index abs def scale
  14. /mystring exch string def/bpc exch def/ih exch def/iw exch def}b/endimage
  15. {im_save restore}b/1bitmaskimage{sgco myimagedict dup begin/Width iw def/Height
  16. ih def/Decode polarity def/ImageMatrix[iw 0 0 ih 0 0]def/DataSource
  17. setupimageproc def/BitsPerComponent 1 def/Interpolate smoothflag def end
  18. imagemask}b/1bitcopyimage{sgco 0 0 1 dx div 1 dy div 1 2 index sub 1 2 index
  19. sub L2?{4}{6}ifelse -2 roll pop pop rf 1bitmaskimage}b/1bitbwcopyimage{0 true 1
  20. true 1bitcopyimage}b 
  21. %%EndResource
  22.  
  23. %%BeginResource: file Adobe_WinNT_BW_Images_L1 2.0 0
  24. L2? not DefIf_B{/setup2asciiproc{[/Level2ImagesError load aload pop true
  25. FatalErrorIf}b/setup2binaryproc/setup2asciiproc load def/L2Polarity{}def
  26. /1bitmaskimage{sgco iw ih polarity[iw 0 0 ih 0 0]setupimageproc imagemask}b}
  27. DefIf_E 
  28. %%EndResource
  29.  
  30. %%BeginResource: file Adobe_WinNT_Co_Images_L1 2.0 0
  31. L2? not DefIf_B{/isdefined{where dup{exch pop}if}b/ncolors 1 def/colorimage
  32. where{pop true}{false}ifelse{/ncolors 0 statusdict begin/processcolors where
  33. {pop pop processcolors}{/deviceinfo where{pop deviceinfo/Colors known{pop
  34. {deviceinfo/Colors get}}if}if}ifelse end def ncolors 0 ne{/colorimage isdefined
  35. /setcolortransfer isdefined/currentcolortransfer isdefined/currentcmykcolor
  36. isdefined and and and not{/ncolors 0 def}if}if}if ncolors dup 1 ne exch dup 3
  37. ne exch 4 ne and and{/ncolors 0 def}if ncolors 1 eq DefIf_B{/expandbw
  38. {expandfactor mul round cvi bwclut exch get 255 div}b/doclutimage{pop/bwclut
  39. exch def/expandfactor 1 bpc{2 mul}repeat 1 sub def[/expandbw load/exec load dup
  40. currenttransfer exch]cvx bind settransfer iw ih bpc[iw 0 0 ih 0 0]
  41. setupimageproc image}b}DefIf_E ncolors dup 3 eq exch 4 eq or DefIf_B{/nullproc{
  42. {}}def/concatutil{/exec load 7 -1 roll/exec load}b/defsubclut{1 add getinterval
  43. def}b/spconcattransfer{/Dclut exch def/Cclut exch def/Bclut exch def/Aclut exch
  44. def/ncompute exch load def currentcolortransfer[{Aclut ncompute}concatutil]cvx[
  45. {Bclut ncompute}concatutil]cvx[{Cclut ncompute}concatutil]cvx[{Dclut ncompute}
  46. concatutil]cvx setcolortransfer}b/setuprgbcluts{/bit3x rgbclut length 3 sub def
  47. /bit1x bit3x 3 idiv def/rclut rgbclut def/gclut rclut 1 bit3x defsubclut/bclut
  48. rclut 2 bit3x defsubclut}b}DefIf_E ncolors 3 eq DefIf_B{/3compute{exch bit3x
  49. mul round cvi get 255 div}b/doclutimage{/rgbclut exch def pop setuprgbcluts
  50. /3compute rclut gclut bclut dup spconcattransfer iw ih bpc[iw 0 0 ih 0 0]
  51. [setupimageproc/exec load/dup load dup]cvx nullproc nullproc true 3 colorimage}
  52. b}DefIf_E ncolors 4 eq DefIf_B{/ftoint{1 exch sub 255 mul round cvi}b/stuffclut
  53. {cmykindex 3 -1 roll put}b/4compute{exch bit4x mul round cvi get 255 div}b
  54. /invalidcolortable? true def/computecmykclut{setuprgbcluts/bit4x rgbclut length
  55. 3 idiv 4 mul 4 sub def/cmykclut bit4x 4 add string def/cclut cmykclut def/mclut
  56. cclut 1 bit4x defsubclut/yclut cclut 2 bit4x defsubclut/kclut cclut 3 bit4x
  57. defsubclut/cmykindex 0 def 0 1 bit1x{dup/cmykindex exch bit1x exch sub 4 mul
  58. def 3 mul dup rclut exch get 255 div exch dup gclut exch get 255 div exch bclut
  59. exch get 255 div setrgbcolor currentcmykcolor ftoint kclut stuffclut ftoint
  60. yclut stuffclut ftoint mclut stuffclut ftoint cclut stuffclut}for}b/doclutimage
  61. {/rgbclut exch def pop invalidcolortable?{computecmykclut}if/4compute cclut
  62. mclut yclut kclut spconcattransfer iw ih bpc[iw 0 0 ih 0 0][setupimageproc/exec
  63. load/dup load dup dup]cvx nullproc nullproc nullproc true 4 colorimage}b}
  64. DefIf_E ncolors 0 eq DefIf_B{/lookupandstore{3 mul 3 getinterval putinterval
  65. exch 3 add exch 3 copy}b/8lookup/lookupandstore load def/4lookup{/byte 1 index
  66. def -4 bitshift lookupandstore byte 15 and lookupandstore}b/2lookup{/byte 1
  67. index def -6 bitshift lookupandstore byte -4 bitshift 3 and lookupandstore byte
  68. -2 bitshift 3 and lookupandstore byte 3 and lookupandstore}b/1lookup{/byte exch
  69. def -7 1 0{byte exch bitshift 1 and lookupandstore}bind for}b/colorexpand
  70. {mystringexp 0 rgbclut 3 copy 7 -1 roll/mylookup load forall pop pop pop pop
  71. pop}b/createexpandstr{/mystringexp exch mystring length mul string def}b
  72. /doclutimage{/rgbclut exch def pop/mylookup bpc 8 eq{3 createexpandstr/8lookup}
  73. {bpc 4 eq{6 createexpandstr/4lookup}{bpc 2 eq{12 createexpandstr/2lookup}{24
  74. createexpandstr/1lookup}ifelse}ifelse}ifelse load def iw ih 8[iw 0 0 ih 0 0]
  75. [setupimageproc/exec load/colorexpand load/exec load]cvx false 3 colorimage}b}
  76. DefIf_E/colorimage where{pop true}{false}ifelse DefIf_B{/do24image{iw ih 8[iw 0
  77. 0 ih 0 0]setupimageproc false 3 colorimage}b}DefIf_El{/rgbtogray{/str exch def
  78. /len str length def/smlen len 3 idiv def/rstr str def/gstr str 1 len 1 sub
  79. getinterval def/bstr str 2 len 2 sub getinterval def str dup 0 1 smlen 1 sub
  80. {dup 3 mul rstr 1 index get .3 mul gstr 2 index get .59 mul add bstr 3 -1 roll
  81. get .11 mul add round cvi put dup}for pop 0 smlen getinterval}b/do24image{iw ih
  82. 8[iw 0 0 ih 0 0][setupimageproc/exec load/rgbtogray load/exec load]cvx bind
  83. image}b}DefIf_E/doNimage{bpc 24 eq{do24image}{iw ih bpc[iw 0 0 ih 0 0]
  84. setupimageproc image}ifelse}b}DefIf_E 
  85. %%EndResource
  86.  
  87. %%BeginResource: file Adobe_WinNT_Co_Images_L2 2.0 0
  88. L2? DefIf_B{/doclutimage{/rgbclut exch def pop/hival 1 bpc{2 mul}repeat 1 sub
  89. def[/Indexed colspABC hival rgbclut]setcolorspace myimagedict dup begin/Width
  90. iw def/Height ih def/Decode[0 hival]def/ImageMatrix[iw 0 0 ih 0 0]def
  91. /DataSource setupimageproc def/BitsPerComponent bpc def/Interpolate smoothflag
  92. def end image}b/doNimage{bpc 24 eq{colspABC}{colspA}ifelse setcolorspace
  93. myimagedict dup begin/Width iw def/Height ih def/Decode bpc 24 eq{[0 1 0 1 0 1]
  94. }{[0 1]}ifelse def/ImageMatrix[iw 0 0 ih 0 0]def/DataSource setupimageproc def
  95. /BitsPerComponent bpc 24 eq{8}{bpc}ifelse def/Interpolate smoothflag def end
  96. image}b}DefIf_E 
  97. %%EndResource
  98.